PC World Komputer 2010 April/PCWorld0410.iso/hity wydania/Ubuntu 9.10 PL/karmelkowy-koliberek-desktop-9.10-i386-PL.iso/casper/filesystem.squashfs/usr/src/linux-headers-2.6.31-14/scripts/checkincludes.pl

Perl Script | 2009-09-09 | 529b | 25 lines

#!/usr/bin/perl
#
# checkincludes: Find files included more than once in (other) files.
# Copyright abandoned, 2000, Niels Kristian Bech Jensen <[e-mail]>.

foreach $file (@ARGV) {
    open(FILE, $file) or die "Cannot open $file: $!.\n";

    my %includedfiles = ();

    while (<FILE>) {
        if (m/^\s*#\s*include\s*[<"](\S*)[>"]/o) {
            ++$includedfiles{$1};
        }
    }

    foreach $filename (keys %includedfiles) {
        if ($includedfiles{$filename} > 1) {
            print "$file: $filename is included more than once.\n";
        }
    }

    close(FILE);
}